home *** CD-ROM | disk | FTP | other *** search
/ Electronic Bookshelf / Electronic Bookshelf.iso / menu / menu.bas < prev    next >
BASIC Source File  |  1994-12-22  |  31KB  |  1,497 lines
  1. CLS
  2. SHELL "ELEC.COM"
  3. DELAY 2
  4. BOOKSHELF:
  5. SHELL "ELECBKSH.COM"
  6.  
  7. MAINMENU:
  8.     A$=INKEY$
  9.            IF A$=CHR$(49) THEN GOTO SEVENCLUBS
  10.            IF A$=CHR$(50) THEN GOTO FABLES
  11.            IF A$=CHR$(51) THEN GOTO AUTOS
  12.            IF A$=CHR$(52) THEN GOTO GOVERN
  13.            IF A$=CHR$(53) THEN GOTO LITERATURE
  14.            IF A$=CHR$(54) THEN GOTO MAKECASH
  15.            IF A$=CHR$(55) THEN GOTO MOVIES
  16.            IF A$=CHR$(56) THEN GOTO PLAYS
  17.            IF A$=CHR$(57) THEN GOTO POEMS
  18.            IF A$=CHR$(48) THEN GOTO REFERENCE
  19.            IF A$=CHR$(27) THEN SHELL "CD\":CLS:END
  20.     GOTO MAINMENU
  21.  
  22. SEVENCLUBS:
  23. SHELL "700CLUB.COM"
  24. SEVENMENUS:
  25.      A$=INKEY$
  26.           IF A$=CHR$(49) THEN GOTO SEVENPARTA
  27.           IF A$=CHR$(50) THEN GOTO SEVENPARTB
  28.           IF A$=CHR$(27) THEN GOTO BOOKSHELF
  29.      GOTO SEVENMENUS
  30.  
  31. SEVENPARTA:
  32. SHELL "700CLUB1.COM"
  33. PARTAMENU:
  34.      A$=INKEY$
  35.         IF A$=CHR$(65) OR A$=CHR$(97) THEN CLS:SHELL "700G039.BAT"
  36.         IF A$=CHR$(66) OR A$=CHR$(98) THEN CLS:SHELL "700G173.BAT"
  37.         IF A$=CHR$(67) OR A$=CHR$(99) THEN CLS:SHELL "700G151.BAT"
  38.         IF A$=CHR$(68) OR A$=CHR$(100) THEN CLS:SHELL "G158.BAT"
  39.         IF A$=CHR$(69) OR A$=CHR$(101) THEN CLS:SHELL "G298.BAT"
  40.         IF A$=CHR$(70) OR A$=CHR$(102) THEN CLS:SHELL "G221.BAT"
  41.         IF A$=CHR$(71) OR A$=CHR$(103) THEN CLS:SHELL "G227.BAT"
  42.         IF A$=CHR$(72) OR A$=CHR$(104) THEN CLS:SHELL "700G157.BAT"
  43.         IF A$=CHR$(73) OR A$=CHR$(105) THEN CLS:SHELL "700G031.BAT"
  44.         IF A$=CHR$(74) OR A$=CHR$(106) THEN CLS:SHELL "G182.BAT"
  45.         IF A$=CHR$(75) OR A$=CHR$(107) THEN CLS:SHELL "700G038.BAT"
  46.         IF A$=CHR$(76) OR A$=CHR$(108) THEN CLS:SHELL "G293.BAT"
  47.         IF A$=CHR$(77) OR A$=CHR$(109) THEN CLS:SHELL "700G174.BAT"
  48.         IF A$=CHR$(78) OR A$=CHR$(110) THEN CLS:SHELL "700G052.BAT"
  49.         IF A$=CHR$(79) OR A$=CHR$(111) THEN CLS:SHELL "700G171.BAT"
  50.         IF A$=CHR$(80) OR A$=CHR$(112) THEN CLS:SHELL "700G027.BAT"
  51.         IF A$=CHR$(81) OR A$=CHR$(113) THEN CLS:SHELL "G304.BAT"
  52.         IF A$=CHR$(82) OR A$=CHR$(114) THEN CLS:SHELL "G300.BAT"
  53.         IF A$=CHR$(83) OR A$=CHR$(115) THEN CLS:SHELL "G181.BAT"
  54.         IF A$=CHR$(84) OR A$=CHR$(116) THEN CLS:SHELL "700G060.BAT"
  55.         IF A$=CHR$(85) OR A$=CHR$(117) THEN CLS:SHELL "700G045.BAT"
  56.         IF A$=CHR$(27) THEN GOTO SEVENCLUBS
  57.      GOTO SEVENPARTA
  58.  
  59. SEVENPARTB:
  60. SHELL "700CLUB2.COM"
  61. PARTBMENU:
  62.      A$=INKEY$
  63.         IF A$=CHR$(65) OR A$=CHR$(97) THEN CLS:SHELL "G290.BAT"
  64.         IF A$=CHR$(66) OR A$=CHR$(98) THEN CLS:SHELL "G276.BAT"
  65.         IF A$=CHR$(67) OR A$=CHR$(99) THEN CLS:SHELL "700G165.BAT"
  66.         IF A$=CHR$(68) OR A$=CHR$(100) THEN CLS:SHELL "700G034.BAT"
  67.         IF A$=CHR$(69) OR A$=CHR$(101) THEN CLS:SHELL "G292.BAT"
  68.         IF A$=CHR$(70) OR A$=CHR$(102) THEN CLS:SHELL "G189.BAT"
  69.         IF A$=CHR$(71) OR A$=CHR$(103) THEN CLS:SHELL "G228.BAT"
  70.         IF A$=CHR$(72) OR A$=CHR$(104) THEN CLS:SHELL "G172.BAT"
  71.         IF A$=CHR$(73) OR A$=CHR$(105) THEN CLS:SHELL "G297.BAT"
  72.         IF A$=CHR$(74) OR A$=CHR$(106) THEN CLS:SHELL "700G152.BAT"
  73.         IF A$=CHR$(75) OR A$=CHR$(107) THEN CLS:SHELL "700G160.BAT"
  74.         IF A$=CHR$(76) OR A$=CHR$(108) THEN CLS:SHELL "700G179.BAT"
  75.         IF A$=CHR$(77) OR A$=CHR$(109) THEN CLS:SHELL "700G159.BAT"
  76.         IF A$=CHR$(78) OR A$=CHR$(110) THEN CLS:SHELL "700G041.BAT"
  77.         IF A$=CHR$(79) OR A$=CHR$(111) THEN CLS:SHELL "G187.BAT"
  78.         IF A$=CHR$(80) OR A$=CHR$(112) THEN CLS:SHELL "G280.BAT"
  79.         IF A$=CHR$(81) OR A$=CHR$(113) THEN CLS:SHELL "700G028.BAT"
  80.         IF A$=CHR$(82) OR A$=CHR$(114) THEN CLS:SHELL "G180.BAT"
  81.         IF A$=CHR$(83) OR A$=CHR$(115) THEN CLS:SHELL "G278.BAT"
  82.         IF A$=CHR$(84) OR A$=CHR$(116) THEN CLS:SHELL "G153.BAT"
  83.         IF A$=CHR$(85) OR A$=CHR$(117) THEN CLS:SHELL "G285.BAT"
  84.         IF A$=CHR$(27) THEN GOTO SEVENCLUBS
  85.      GOTO SEVENPARTB
  86.  
  87. FABLES:
  88.  
  89. SHELL "AESOP.COM"
  90.  
  91. AESOPMENU:
  92.     A$=INKEY$
  93.        IF A$=CHR$(49) THEN GOTO THEFABLES
  94.        IF A$=CHR$(50) THEN GOTO THELIFE
  95.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  96.     GOTO AESOPMENU
  97.  
  98. THEFABLES:
  99. SHELL "CD\BOOKS\AESOP"
  100. SHELL "SHOW.BAT"
  101. SHELL "CD\MENU"
  102. GOTO FABLES
  103.  
  104. THELIFE:
  105. SHELL "CD\BOOKS\AESOP"
  106. SHELL "LIFE.BAT"
  107. SHELL "CD\MENU"
  108. GOTO FABLES
  109.  
  110.  
  111. AUTOS:
  112. SHELL "AUTOS.COM"
  113. AUTOMENU:
  114.     A$=INKEY$
  115.        IF A$=CHR$(49) THEN GOTO BEN
  116.        IF A$=CHR$(50) THEN GOTO BOOKER
  117.        IF A$=CHR$(51) THEN GOTO FREDDY
  118.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  119.     GOTO AUTOMENU
  120.  
  121. BEN:
  122. SHELL "CD\AUTOS\BENFRANK"
  123. SHELL "SHOW.BAT"
  124. SHELL "CD\MENU"
  125. GOTO AUTOS
  126.  
  127. BOOKER:
  128. SHELL "CD\AUTOS\BOOKER_T"
  129. SHELL "SHOW.BAT"
  130. SHELL "CD\MENU"
  131. GOTO AUTOS
  132.  
  133. FREDDY:
  134. SHELL "CD\AUTOS\FREDDOUG"
  135. SHELL "SHOW.BAT"
  136. SHELL "CD\MENU"
  137. GOTO AUTOS
  138.  
  139. GOVERN:
  140. SHELL "GOVERN.COM"
  141.  
  142. GOVERNMENU:
  143.     A$=INKEY$
  144.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO HERITAGE
  145.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO CIABOOK
  146.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO HISTORY
  147.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO IRSERVICE
  148.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO LEGALDEPT
  149.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO NEWWORLD
  150.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO NUCLEAR
  151.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO PIWORK
  152.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO BILLS
  153.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO INVENT
  154.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  155.     GOTO GOVERNMENU
  156.  
  157. HERITAGE:
  158. SHELL "CD\GOVERN\HERITAGE"
  159. SHELL "HERITAGE.EXE"
  160. SHELL "CD\MENU"
  161. GOTO GOVERN
  162.  
  163. CIABOOK:
  164. SHELL "CD\GOVERN\CIA"
  165. SHELL "CIA.EXE"
  166. SHELL "CD\MENU"
  167. GOTO GOVERN
  168.  
  169. HISTORY:
  170. SHELL "HISTOR.COM"
  171. HISTORMENU:
  172.       A$=INKEY$
  173.          IF A$=CHR$(49) THEN GOTO BUGLE
  174.          IF A$=CHR$(50) THEN GOTO STARS
  175.          IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO ANNAPOLIS
  176.          IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO ARTCONFED
  177.          IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO CHARLOTTE
  178.          IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO DECIND
  179.          IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO DECCAUSE
  180.          IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO FIRSTTHNKS
  181.          IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO GETTYS
  182.          IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO MAGNA
  183.          IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO MAYFLOW
  184.          IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO PARIS
  185.          IF A$=CHR$(75) OR A$=CHR$(107) THEN GOTO TREATGREEN
  186.          IF A$=CHR$(76) OR A$=CHR$(108) THEN GOTO USCONSTI
  187.          IF A$=CHR$(27) THEN GOTO GOVERN
  188.       GOTO HISTORMENU
  189.  
  190. BUGLE:
  191. SHELL "CD\GOVERN\HISTDOCS"
  192. SHELL "BUGLE.EXE"
  193. SHELL "CD\MENU"
  194. GOTO HISTORY
  195.  
  196. STARS:
  197. SHELL "CD\GOVERN\HISTDOCS"
  198. SHELL "SSB.EXE"
  199. SHELL "CD\MENU"
  200. GOTO HISTORY
  201.  
  202. ANNAPOLIS:
  203. SHELL "CD\GOVERN\HISTDOCS"
  204. SHELL "VIEW ANNAPCON.TXT"
  205. SHELL "CD\MENU"
  206. GOTO HISTORY
  207.  
  208. ARTCONFED:
  209. SHELL "CD\GOVERN\HISTDOCS"
  210. SHELL "VIEW ARTCONF.TXT"
  211. SHELL "CD\MENU"
  212. GOTO HISTORY
  213.  
  214. CHARLOTTE:
  215. SHELL "CD\GOVERN\HISTDOCS"
  216. SHELL "VIEW CHARLOTT.TXT"
  217. SHELL "CD\MENU"
  218. GOTO HISTORY
  219.  
  220. DECIND:
  221. SHELL "CD\GOVERN\HISTDOCS"
  222. SHELL "VIEW DEC_INDP.TXT"
  223. SHELL "CD\MENU"
  224. GOTO HISTORY
  225.  
  226. DECCAUSE:
  227. SHELL "CD\GOVERN\HISTDOCS"
  228. SHELL "VIEW DEC_ARMS.TXT"
  229. SHELL "CD\MENU"
  230. GOTO HISTORY
  231.  
  232. FIRSTTHNKS:
  233. SHELL "CD\GOVERN\HISTDOCS"
  234. SHELL "VIEW THANKSGI.TXT"
  235. SHELL "CD\MENU"
  236. GOTO HISTORY
  237.  
  238. GETTYS:
  239. SHELL "CD\GOVERN\HISTDOCS"
  240. SHELL "VIEW GETTYADR.TXT"
  241. SHELL "CD\MENU"
  242. GOTO HISTORY
  243.  
  244. MAGNA:
  245. SHELL "CD\GOVERN\HISTDOCS"
  246. SHELL "VIEW MAGNA_CA.TXT"
  247. SHELL "CD\MENU"
  248. GOTO HISTORY
  249.  
  250. MAYFLOW:
  251. SHELL "CD\GOVERN\HISTDOCS"
  252. SHELL "VIEW MAYFLOWE.TXT"
  253. SHELL "CD\MENU"
  254. GOTO HISTORY
  255.  
  256. PARIS:
  257. SHELL "CD\GOVERN\HISTDOCS"
  258. SHELL "VIEW PARISTRE.TXT"
  259. SHELL "CD\MENU"
  260. GOTO HISTORY
  261.  
  262. TREATGREEN:
  263. SHELL "CD\GOVERN\HISTDOCS"
  264. SHELL "VIEW GREENTRE.TXT"
  265. SHELL "CD\MENU"
  266. GOTO HISTORY
  267.  
  268. USCONSTI:
  269. SHELL "CD\GOVERN\CONSTIT"
  270. SHELL "CONSTITU.EXE"
  271. SHELL "CD\MENU"
  272. GOTO HISTORY
  273.  
  274. IRSERVICE:
  275. SHELL "IRS.COM"
  276. IRSMENU:
  277.    A$=INKEY$
  278.       IF A$=CHR$(49) THEN GOTO REVOLT
  279.       IF A$=CHR$(50) THEN GOTO RIGHTS
  280.       IF A$=CHR$(51) THEN GOTO FEDZONE
  281.       IF A$=CHR$(27) THEN GOTO GOVERN
  282.    GOTO IRSMENU
  283.  
  284. REVOLT:
  285. SHELL "CD\GOVERN\REVOLT"
  286. SHELL "REVOLT"
  287. SHELL "CD\MENU"
  288. GOTO IRSERVICE
  289.  
  290. RIGHTS:
  291. SHELL "CD\GOVERN\TAXBILL"
  292. SHELL "SHOW.BAT"
  293. SHELL "CD\MENU"
  294. GOTO IRSERVICE
  295.  
  296. FEDZONE:
  297. SHELL "CD\GOVERN\FEDZONE"
  298. SHELL "SHOW.BAT"
  299. SHELL "CD\MENU"
  300. GOTO IRSERVICE
  301.  
  302. LEGALDEPT:
  303. SHELL "LEGAL.COM"
  304. LEGALMENU:
  305.      A$=INKEY$
  306.         IF A$=CHR$(49) THEN GOTO COMMONLAW
  307.         IF A$=CHR$(50) THEN GOTO COURTS
  308.         IF A$=CHR$(51) THEN GOTO JURYRITE
  309.         IF A$=CHR$(52) THEN GOTO LEGALTUT
  310.         IF A$=CHR$(53) THEN GOTO OJTRANS
  311.         IF A$=CHR$(54) THEN GOTO BEARARMS
  312.         IF A$=CHR$(55) THEN GOTO ROEVWADE
  313.         IF A$=CHR$(27) THEN GOTO GOVERN
  314.      GOTO LEGALMENU
  315.  
  316. COMMONLAW:
  317. SHELL "CD\GOVERN\COMMON"
  318. SHELL "LAW.EXE"
  319. SHELL "CD\MENU"
  320. GOTO LEGALDEPT
  321.  
  322. COURTS:
  323. SHELL "CD\GOVERN\COURTS"
  324. SHELL "COURTP.EXE"
  325. SHELL "CD\MENU"
  326. GOTO LEGALDEPT
  327.  
  328. JURYRITE:
  329. SHELL "CD\GOVERN\JURYRITE"
  330. SHELL "SHOW.BAT"
  331. SHELL "CD\MENU"
  332. GOTO LEGALDEPT
  333.  
  334. LEGALTUT:
  335. SHELL "CD\GOVERN\LAW"
  336. SHELL "LEGAL.EXE"
  337. SHELL "CD\MENU"
  338. GOTO LEGALDEPT
  339.  
  340. OJTRANS:
  341. SHELL "CD\GOVERN\OJ_TRANS"
  342. SHELL "SHOW.BAT"
  343. SHELL "CD\MENU"
  344. GOTO LEGALDEPT
  345.  
  346. BEARARMS:
  347. SHELL "CD\GOVERN\BEAR_ARM"
  348. SHELL "BEGIN.EXE"
  349. SHELL "CD\MENU"
  350. GOTO LEGALDEPT
  351.  
  352. ROEVWADE:
  353. SHELL "CD\GOVERN\ROEVWADE"
  354. SHELL "SHOW.BAT"
  355. SHELL "CD\MENU"
  356. GOTO LEGALDEPT
  357.  
  358. NEWWORLD:
  359. SHELL "NEWWORLD.COM"
  360. NEWWORLDMENU:
  361.     A$=INKEY$
  362.        IF A$=CHR$(49) THEN GOTO NEWWR
  363.        IF A$=CHR$(50) THEN GOTO VAMPIRE
  364.        IF A$=CHR$(27) THEN GOTO GOVERN
  365.     GOTO NEWWORLDMENU
  366.  
  367. NEWWR:
  368. SHELL "CD\GOVERN\NEWORDER"
  369. SHELL "BEGIN.EXE"
  370. SHELL "CD\MENU"
  371. GOTO NEWWORLD
  372.  
  373. VAMPIRE:
  374. SHELL "CD\GOVERN\VAMPIRE"
  375. SHELL "SHOW.BAT"
  376. SHELL "CD\MENU"
  377. GOTO NEWWORLD
  378.  
  379. NUCLEAR:
  380. SHELL "CD\GOVERN\NUCLEAR"
  381. SHELL "SHOW.BAT"
  382. SHELL "CD\MENU"
  383. GOTO GOVERN
  384.  
  385. PIWORK:
  386. SHELL "CD\GOVERN\PI_WORK"
  387. SHELL "BOOKREAD"
  388. SHELL "CD\MENU"
  389. GOTO GOVERN
  390.  
  391. BILLS:
  392. SHELL "BILLS.COM"
  393. BILLMENU:
  394.    A$=INKEY$
  395.       IF A$=CHR$(49) THEN GOTO HEALTH
  396.       IF A$=CHR$(50) THEN GOTO NAFTA
  397.       IF A$=CHR$(51) THEN GOTO CRIME
  398.       IF A$=CHR$(27) THEN GOTO GOVERN
  399.    GOTO BILLMENU
  400.  
  401. HEALTH:
  402. SHELL "CD\GOVERN\HEALTH"
  403. SHELL "SHOW.BAT"
  404. SHELL "CD\MENU"
  405. GOTO BILLS
  406.  
  407. NAFTA:
  408. SHELL "CD\GOVERN\NAFTA"
  409. SHELL "LIST.COM"
  410. SHELL "CD\MENU"
  411. GOTO BILLS
  412.  
  413. CRIME:
  414. SHELL "CD\GOVERN\CRIMEBIL"
  415. SHELL "SHOW.BAT"
  416. SHELL "CD\MENU"
  417. GOTO BILLS
  418.  
  419. INVENT:
  420. SHELL "CD\GOVERN\REINVENT"
  421. SHELL "BEGIN.EXE"
  422. SHELL "CD\MENU"
  423. GOTO GOVERN
  424.  
  425. LITERATURE:
  426. SHELL "LITMENU.COM"
  427. LITMENU:
  428.      A$=INKEY$
  429.         IF A$=CHR$(49) THEN GOTO GLONE
  430.         IF A$=CHR$(50) THEN GOTO GLTWO
  431.         IF A$=CHR$(51) THEN GOTO GLTHREE
  432.         IF A$=CHR$(52) THEN GOTO GLFOUR
  433.         IF A$=CHR$(53) THEN GOTO GLFIVE
  434.         IF A$=CHR$(54) THEN GOTO GLSIX
  435.         IF A$=CHR$(55) THEN GOTO GLSEVEN
  436.         IF A$=CHR$(27) THEN GOTO BOOKSHELF
  437.      GOTO LITMENU
  438.  
  439. GLONE:
  440. SHELL "GREAT1.COM"
  441. GL1MENU:
  442.      A$=INKEY$
  443.         IF A$=CHR$(49) THEN GOTO HUCK
  444.         IF A$=CHR$(50) THEN GOTO ALICE
  445.         IF A$=CHR$(51) THEN GOTO ANNEAVON
  446.         IF A$=CHR$(52) THEN GOTO ANNEGREEN
  447.         IF A$=CHR$(53) THEN GOTO AROUNDWRLD
  448.         IF A$=CHR$(54) THEN GOTO AYALA
  449.         IF A$=CHR$(55) THEN GOTO BEASTS
  450.         IF A$=CHR$(56) THEN GOTO BEOWULF
  451.         IF A$=CHR$(27) THEN GOTO LITERATURE
  452.      GOTO GL1MENU
  453.  
  454. HUCK:
  455. SHELL "CD\BOOKS\HUCKFINN"
  456. SHELL "SHOW.BAT"
  457. SHELL "CD\MENU"
  458. GOTO GLONE
  459.  
  460. ALICE:
  461. SHELL "CD\BOOKS\ALICE"
  462. SHELL "SHOW.BAT"
  463. SHELL "CD\MENU"
  464. GOTO GLONE
  465.  
  466. ANNEAVON:
  467. SHELL "CD\BOOKS\AVONLEA"
  468. SHELL "SHOW.BAT"
  469. SHELL "CD\MENU"
  470. GOTO GLONE
  471.  
  472. ANNEGREEN:
  473. SHELL "CD\BOOKS\ANNE"
  474. SHELL "SHOW.BAT"
  475. SHELL "CD\MENU"
  476. GOTO GLONE
  477.  
  478. AROUNDWRLD:
  479. SHELL "CD\BOOKS\80_DAYS"
  480. SHELL "SHOW.BAT"
  481. SHELL "CD\MENU"
  482. GOTO GLONE
  483.  
  484. AYALA:
  485. SHELL "CD\BOOKS\AYALA"
  486. SHELL "SHOW.BAT"
  487. SHELL "CD\MENU"
  488. GOTO GLONE
  489.  
  490. BEASTS:
  491. SHELL "CD\BOOKS\TARZAN"
  492. SHELL "SHOW.BAT"
  493. SHELL "CD\MENU"
  494. GOTO GLONE
  495.  
  496. BEOWULF:
  497. SHELL "CD\BOOKS\BEOWULF"
  498. SHELL "SHOW.BAT"
  499. SHELL "CD\MENU"
  500. GOTO GLONE
  501.  
  502. GLTWO:
  503. SHELL "GREAT2.COM"
  504. GL2MENU:
  505.      A$=INKEY$
  506.         IF A$=CHR$(49) THEN GOTO CANTER
  507.         IF A$=CHR$(50) THEN GOTO CLOVIS
  508.         IF A$=CHR$(51) THEN GOTO DRACULA
  509.         IF A$=CHR$(52) THEN GOTO EGYPT
  510.         IF A$=CHR$(53) THEN GOTO FANNY
  511.         IF A$=CHR$(54) THEN GOTO FROMEARTH
  512.         IF A$=CHR$(55) THEN GOTO PITCAIRN
  513.         IF A$=CHR$(56) THEN GOTO BIBLE
  514.         IF A$=CHR$(27) THEN GOTO LITERATURE
  515.      GOTO GL2MENU
  516.  
  517. CANTER:
  518. SHELL "CD\BOOKS\CANTER"
  519. SHELL "SHOW.BAT"
  520. SHELL "CD\MENU"
  521. GOTO GLTWO
  522.  
  523. CLOVIS:
  524. SHELL "CD\BOOKS\CLOVIS"
  525. SHELL "SHOW.BAT"
  526. SHELL "CD\MENU"
  527. GOTO GLTWO
  528.  
  529. DRACULA:
  530. SHELL "CD\BOOKS\DRACULA"
  531. SHELL "GO.BAT"
  532. SHELL "CD\MENU"
  533. GOTO GLTWO
  534.  
  535. EGYPT:
  536. SHELL "CD\BOOKS\BOOKDEAD"
  537. SHELL "SHOW.BAT"
  538. SHELL "CD\MENU"
  539. GOTO GLTWO
  540.  
  541. FANNY:
  542. SHELL "CD\BOOKS\FANNY"
  543. SHELL "SHOW.BAT"
  544. SHELL "CD\MENU"
  545. GOTO GLTWO
  546.  
  547. FROMEARTH:
  548. SHELL "CD\BOOKS\MOON"
  549. SHELL "SHOW.BAT"
  550. SHELL "CD\MENU"
  551. GOTO GLTWO
  552.  
  553. PITCAIRN:
  554. SHELL "CD\BOOKS\TWAIN"
  555. SHELL "SHOWT.BAT"
  556. SHELL "CD\MENU"
  557. GOTO GLTWO
  558.  
  559. BIBLE:
  560. SHELL "CD\BOOKS\BIBLE"
  561. SHELL "BIBLESTU.EXE"
  562. SHELL "CD\MENU"
  563. GOTO GLTWO
  564.  
  565.  
  566. GLTHREE:
  567. SHELL "GREAT3.COM"
  568. GL3MENU:
  569.      A$=INKEY$
  570.         IF A$=CHR$(49) THEN GOTO GABLES
  571.         IF A$=CHR$(50) THEN GOTO IVANHOE
  572.         IF A$=CHR$(51) THEN GOTO CTREARTH
  573.         IF A$=CHR$(52) THEN GOTO JOYWOMAN
  574.         IF A$=CHR$(53) THEN GOTO JUSTDAVE
  575.         IF A$=CHR$(54) THEN GOTO SLEEPY
  576.         IF A$=CHR$(55) THEN GOTO MISERABLE
  577.         IF A$=CHR$(56) THEN GOTO CHURCHILL
  578.         IF A$=CHR$(27) THEN GOTO LITERATURE
  579.      GOTO GL3MENU
  580.  
  581. GABLES:
  582. SHELL "CD\BOOKS\HOUSEOF7"
  583. SHELL "SHOW.BAT"
  584. SHELL "CD\MENU"
  585. GOTO GLTHREE
  586.  
  587. IVANHOE:
  588. SHELL "CD\BOOKS\IVANHOE"
  589. SHELL "SHOW.BAT"
  590. SHELL "CD\MENU"
  591. GOTO GLTHREE
  592.  
  593. CTREARTH:
  594. SHELL "CD\BOOKS\JOURNEY"
  595. SHELL "SHOW.BAT"
  596. SHELL "CD\MENU"
  597. GOTO GLTHREE
  598.  
  599. JOYWOMAN:
  600. SHELL "CD\BOOKS\JOYWOMAN"
  601. SHELL "SHOW.BAT"
  602. SHELL "CD\MENU"
  603. GOTO GLTHREE
  604.  
  605. JUSTDAVE:
  606. SHELL "CD\BOOKS\JUSTDAVE"
  607. SHELL "SHOW.BAT"
  608. SHELL "CD\MENU"
  609. GOTO GLTHREE
  610.  
  611. SLEEPY:
  612. SHELL "CD\BOOKS\SLEEPY"
  613. SHELL "SHOW.BAT"
  614. SHELL "CD\MENU"
  615. GOTO GLTHREE
  616.  
  617. MISERABLE:
  618. SHELL "CD\BOOKS\LESMISER"
  619. SHELL "SHOW.BAT"
  620. SHELL "CD\MENU"
  621. GOTO GLTHREE
  622.  
  623. CHURCHILL:
  624. SHELL "CD\BOOKS\CHURCHIL"
  625. SHELL "LCL.EXE"
  626. SHELL "CD\MENU"
  627. GOTO GLTHREE
  628.  
  629.  
  630. GLFOUR:
  631. SHELL "GREAT4.COM"
  632. GL4MENU:
  633.      A$=INKEY$
  634.         IF A$=CHR$(49) THEN GOTO LUDMIST
  635.         IF A$=CHR$(50) THEN GOTO BOVARY
  636.         IF A$=CHR$(51) THEN GOTO MANALIVE
  637.         IF A$=CHR$(52) THEN GOTO NATLANTIS
  638.         IF A$=CHR$(53) THEN GOTO NIAGARA
  639.         IF A$=CHR$(54) THEN GOTO HUMBOND
  640.         IF A$=CHR$(55) THEN GOTO ORTHODOXY
  641.         IF A$=CHR$(56) THEN GOTO PARALOST
  642.         IF A$=CHR$(27) THEN GOTO LITERATURE
  643.      GOTO GL4MENU
  644.  
  645. LUDMIST:
  646. SHELL "CD\BOOKS\LUD_MIST"
  647. SHELL "SHOW.BAT"
  648. SHELL "CD\MENU"
  649. GOTO GLFOUR
  650.  
  651. BOVARY:
  652. SHELL "CD\BOOKS\MADAMBOV"
  653. SHELL "SHOW.BAT"
  654. SHELL "CD\MENU"
  655. GOTO GLFOUR
  656.  
  657. MANALIVE:
  658. SHELL "CD\BOOKS\MANALIVE"
  659. SHELL "SHOW.BAT"
  660. SHELL "CD\MENU"
  661. GOTO GLFOUR
  662.  
  663. NATLANTIS:
  664. SHELL "CD\BOOKS\ATLANTIS"
  665. SHELL "SHOW.BAT"
  666. SHELL "CD\MENU"
  667. GOTO GLFOUR
  668.  
  669. NIAGARA:
  670. SHELL "CD\BOOKS\TWAIN"
  671. SHELL "SHOWN.BAT"
  672. SHELL "CD\MENU"
  673. GOTO GLFOUR
  674.  
  675. HUMBOND:
  676. SHELL "CD\BOOKS\HUMANBND"
  677. SHELL "SHOW.BAT"
  678. SHELL "CD\MENU"
  679. GOTO GLFOUR
  680.  
  681. ORTHODOXY:
  682. SHELL "CD\BOOKS\ORTHODOX"
  683. SHELL "SHOW.BAT"
  684. SHELL "CD\MENU"
  685. GOTO GLFOUR
  686.  
  687. PARALOST:
  688. SHELL "CD\BOOKS\MILTON"
  689. SHELL "SHOW.BAT"
  690. SHELL "CD\MENU"
  691. GOTO GLFOUR
  692.  
  693.  
  694. GLFIVE:
  695. SHELL "GREAT5.COM"
  696. GL5MENU:
  697.      A$=INKEY$
  698.         IF A$=CHR$(49) THEN GOTO PETEPAN
  699.         IF A$=CHR$(50) THEN GOTO DORIAN
  700.         IF A$=CHR$(51) THEN GOTO PITS
  701.         IF A$=CHR$(52) THEN GOTO QUEEN
  702.         IF A$=CHR$(53) THEN GOTO SONGLARK
  703.         IF A$=CHR$(54) THEN GOTO SUNTZU
  704.         IF A$=CHR$(55) THEN GOTO OPAR
  705.         IF A$=CHR$(56) THEN GOTO CONTROLL
  706.         IF A$=CHR$(27) THEN GOTO LITERATURE
  707.      GOTO GL5MENU
  708.  
  709. PETEPAN:
  710. SHELL "CD\BOOKS\PETERPAN"
  711. SHELL "BOOK.COM"
  712. SHELL "CD\MENU"
  713. GOTO GLFIVE
  714.  
  715. DORIAN:
  716. SHELL "CD\BOOKS\DORIAN"
  717. SHELL "SHOW.BAT"
  718. SHELL "CD\MENU"
  719. GOTO GLFIVE
  720.  
  721. PITS:
  722. SHELL "CD\BOOKS\PIT_PEND"
  723. SHELL "SHOW.BAT"
  724. SHELL "CD\MENU"
  725. GOTO GLFIVE
  726.  
  727. QUEEN:
  728. SHELL "CD\BOOKS\Q_SPADES"
  729. SHELL "SHOW.BAT"
  730. SHELL "CD\MENU"
  731. GOTO GLFIVE
  732.  
  733. SONGLARK:
  734. SHELL "CD\BOOKS\SONGLARK"
  735. SHELL "SHOW.BAT"
  736. SHELL "CD\MENU"
  737. GOTO GLFIVE
  738.  
  739. SUNTZU:
  740. SHELL "CD\BOOKS\SUNZU"
  741. SHELL "SHOW.BAT"
  742. SHELL "CD\MENU"
  743. GOTO GLFIVE
  744.  
  745. OPAR:
  746. SHELL "CD\BOOKS\TARZAN"
  747. SHELL "SHOW1.BAT"
  748. SHELL "CD\MENU"
  749. GOTO GLFIVE
  750.  
  751. CONTROLL:
  752. SHELL "CD\BOOKS\MINDCTRL"
  753. SHELL "SHOW.BAT"
  754. SHELL "CD\MENU"
  755. GOTO GLFIVE
  756.  
  757. GLSIX:
  758. SHELL "GREAT6.COM"
  759. GL6MENU:
  760.      A$=INKEY$
  761.         IF A$=CHR$(49) THEN GOTO TIMEMACH
  762.         IF A$=CHR$(50) THEN GOTO WRECK
  763.         IF A$=CHR$(51) THEN GOTO LOOKGLASS
  764.         IF A$=CHR$(52) THEN GOTO THUVIA
  765.         IF A$=CHR$(53) THEN GOTO TIMEDISC
  766.         IF A$=CHR$(54) THEN GOTO TOMSAW
  767.         IF A$=CHR$(55) THEN GOTO TRAITOR
  768.         IF A$=CHR$(56) THEN GOTO VIRGIL
  769.         IF A$=CHR$(27) THEN GOTO LITERATURE
  770.      GOTO GL6MENU
  771.  
  772. TIMEMACH:
  773. SHELL "CD\BOOKS\TIMEMACH"
  774. SHELL "SHOW.BAT"
  775. SHELL "CD\MENU"
  776. GOTO GLSIX
  777.  
  778. WRECK:
  779. SHELL "CD\BOOKS\WRECKER"
  780. SHELL "SHOW.BAT"
  781. SHELL "CD\MENU"
  782. GOTO GLSIX
  783.  
  784. LOOKGLASS:
  785. SHELL "CD\BOOKS\LOOKGLAS"
  786. SHELL "SHOW.BAT"
  787. SHELL "CD\MENU"
  788. GOTO GLSIX
  789.  
  790. THUVIA:
  791. SHELL "CD\BOOKS\MMARS"
  792. SHELL "SHOW.BAT"
  793. SHELL "CD\MENU"
  794. GOTO GLSIX
  795.  
  796. TIMEDISC:
  797. SHELL "CD\BOOKS\TIMETALK"
  798. SHELL "START.BAT"
  799. SHELL "CD\MENU"
  800. GOTO GLSIX
  801.  
  802. TOMSAW:
  803. SHELL "CD\BOOKS\TWAIN"
  804. SHELL "SHOW.BAT"
  805. SHELL "CD\MENU"
  806. GOTO GLSIX
  807.  
  808. TRAITOR:
  809. SHELL "CD\BOOKS\TRAITOR"
  810. SHELL "GO.EXE"
  811. SHELL "CD\MENU"
  812. GOTO GLSIX
  813.  
  814. VIRGIL:
  815. SHELL "CD\BOOKS\AENEID"
  816. SHELL "SHOW.BAT"
  817. SHELL "CD\MENU"
  818. GOTO GLSIX
  819.  
  820.  
  821. GLSEVEN:
  822. SHELL "GREAT7.COM"
  823. GL7MENU:
  824.      A$=INKEY$
  825.         IF A$=CHR$(49) THEN GOTO WHATMAN
  826.         IF A$=CHR$(50) THEN GOTO HSTERN
  827.         IF A$=CHR$(51) THEN GOTO YOUNGS
  828.         IF A$=CHR$(27) THEN GOTO LITERATURE
  829.      GOTO GL7MENU
  830.  
  831. WHATMAN:
  832. SHELL "CD\BOOKS\WHAT_MAN"
  833. SHELL "SHOW.BAT"
  834. SHELL "CD\MENU"
  835. GOTO GLSEVEN
  836.  
  837. HSTERN:
  838. SHELL "CD\BOOKS\STERN"
  839. SHELL "SHOW.BAT"
  840. SHELL "CD\MENU"
  841. GOTO GLSEVEN
  842.  
  843. YOUNGS:
  844. SHELL "CD\BOOKS\SCIENCE"
  845. SHELL "SHOW.BAT"
  846. SHELL "CD\MENU"
  847. GOTO GLSEVEN
  848.  
  849. MAKECASH:
  850. SHELL "MONEYS.COM"
  851. MONEYMENU:
  852.     A$=INKEY$
  853.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO BLKMKT
  854.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO FRANCH
  855.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO GINNY
  856.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO WEALTHSEC
  857.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO MAILSERV
  858.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO INVGOLD
  859.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO OPPORT
  860.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO AUCTIONS
  861.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO SWISSBANK
  862.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO TRVFREE
  863.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  864.     GOTO MONEYMENU
  865.  
  866.  
  867. BLKMKT:
  868. SHELL "CD\MONEY\BLKMARKT"
  869. SHELL "SHOW.BAT"
  870. SHELL "CD\MENU"
  871. GOTO MAKECASH
  872.  
  873. FRANCH:
  874. SHELL "CD\MONEY\FRANCHIS"
  875. SHELL "FRAN.EXE"
  876. SHELL "CD\MENU"
  877. GOTO MAKECASH
  878.  
  879. GINNY:
  880. SHELL "CD\MONEY\GINSENG"
  881. SHELL "BEGIN.EXE"
  882. SHELL "CD\MENU"
  883. GOTO MAKECASH
  884.  
  885. WEALTHSEC:
  886. SHELL "CD\MONEY\WEALTH"
  887. SHELL "SECRETS.COM"
  888. SHELL "CD\MENU"
  889. GOTO MAKECASH
  890.  
  891. MAILSERV:
  892. SHELL "CD\MONEY\MAILBIZ"
  893. SHELL "MAILBIZ.COM"
  894. SHELL "CD\MENU"
  895. GOTO MAKECASH
  896.  
  897. INVGOLD:
  898. SHELL "CD\MONEY\GOLD"
  899. SHELL "GOLD.COM"
  900. SHELL "CD\MENU"
  901. GOTO MAKECASH
  902.  
  903. OPPORT:
  904. SHELL "CD\MONEY\BUSINESS"
  905. SHELL "OA.EXE"
  906. SHELL "CD\MENU"
  907. GOTO MAKECASH
  908.  
  909. AUCTIONS:
  910. SHELL "CD\MONEY\AUCTIONS"
  911. SHELL "AUCTIONS.COM"
  912. SHELL "CD\MENU"
  913. GOTO MAKECASH
  914.  
  915. SWISSBANK:
  916. SHELL "CD\MONEY\SWISS"
  917. SHELL "SWISS.COM"
  918. SHELL "CD\MENU"
  919. GOTO MAKECASH
  920.  
  921. TRVFREE:
  922. SHELL "CD\MONEY\TRAVEL"
  923. SHELL "TRAVEL.COM"
  924. SHELL "CD\MENU"
  925. GOTO MAKECASH
  926.  
  927. MOVIES:
  928. SHELL "MOVIES.COM"
  929. MOVIEMENU:
  930.     A$=INKEY$
  931.        IF A$=CHR$(49) THEN GOTO MSCRIPTS
  932.        IF A$=CHR$(50) THEN GOTO MOVTG
  933.        IF A$=CHR$(51) THEN GOTO TREKKY
  934.        IF A$=CHR$(52) THEN GOTO TVGUIDE
  935.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  936.     GOTO MOVIEMENU
  937.  
  938. MSCRIPTS:
  939. SHELL "SCRIPTS.COM"
  940. SCRIPTMENU:
  941.     A$=INKEY$
  942.        IF A$=CHR$(49) THEN GOTO EMP
  943.        IF A$=CHR$(50) THEN GOTO RET
  944.        IF A$=CHR$(51) THEN GOTO GEN
  945.        IF A$=CHR$(52) THEN GOTO SWAR
  946.        IF A$=CHR$(27) THEN GOTO MOVIES
  947.     GOTO SCRIPTMENU
  948.  
  949. EMP:
  950. SHELL "CD\MOVIES\STARWARS"
  951. SHELL "SHOWE.BAT"
  952. SHELL "CD\MENU"
  953. GOTO MSCRIPTS
  954.  
  955. RET:
  956. SHELL "CD\MOVIES\STARWARS"
  957. SHELL "SHOWR.BAT"
  958. SHELL "CD\MENU"
  959. GOTO MSCRIPTS
  960.  
  961. GEN:
  962. SHELL "CD\MOVIES\STARWARS"
  963. SHELL "SHOWG.BAT"
  964. SHELL "CD\MENU"
  965. GOTO MSCRIPTS
  966.  
  967. SWAR:
  968. SHELL "CD\MOVIES\STARWARS"
  969. SHELL "SHOWW.BAT"
  970. SHELL "CD\MENU"
  971. GOTO MSCRIPTS
  972.  
  973. MOVTG:
  974. SHELL "CD\MOVIES\MOVIES"
  975. SHELL "MTG"
  976. END
  977.  
  978. TREKKY:
  979. SHELL "STARDATA.COM"
  980. TREKMENU:
  981.     A$=INKEY$
  982.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO CLOAK
  983.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO CREWD
  984.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO DSNINE
  985.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO HOLO
  986.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO KLING
  987.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO NEXTG
  988.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO OSERI
  989.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO STARB3
  990.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO SFPHY
  991.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO WARPD
  992.        IF A$=CHR$(27) THEN GOTO MOVIES
  993.     GOTO TREKMENU
  994.  
  995. CLOAK:
  996. SHELL "CD\MOVIES\STARTREK"
  997. SHELL "SHOW1.BAT"
  998. SHELL "CD\MENU"
  999. GOTO TREKKY
  1000.  
  1001. CREWD:
  1002. SHELL "CD\MOVIES\STARTREK"
  1003. SHELL "SHOW2.BAT"
  1004. SHELL "CD\MENU"
  1005. GOTO TREKKY
  1006.  
  1007. DSNINE:
  1008. SHELL "CD\MOVIES\STARTREK"
  1009. SHELL "SHOW3.BAT"
  1010. SHELL "CD\MENU"
  1011. GOTO TREKKY
  1012.  
  1013. HOLO:
  1014. SHELL "CD\MOVIES\STARTREK"
  1015. SHELL "SHOW4.BAT"
  1016. SHELL "CD\MENU"
  1017. GOTO TREKKY
  1018.  
  1019. KLING:
  1020. SHELL "CD\MOVIES\STARTREK"
  1021. SHELL "SHOW5.BAT"
  1022. SHELL "CD\MENU"
  1023. GOTO TREKKY
  1024.  
  1025. NEXTG:
  1026. SHELL "CD\MOVIES\STARTREK"
  1027. SHELL "SHOW6.BAT"
  1028. SHELL "CD\MENU"
  1029. GOTO TREKKY
  1030.  
  1031. OSERI:
  1032. SHELL "CD\MOVIES\STARTREK"
  1033. SHELL "SHOW7.BAT"
  1034. SHELL "CD\MENU"
  1035. GOTO TREKKY
  1036.  
  1037. STARB3:
  1038. SHELL "CD\SB3"
  1039. SHELL "SB3"
  1040. SHELL "CD\MENU"
  1041. GOTO TREKKY
  1042.  
  1043. SFPHY:
  1044. SHELL "CD\MOVIES\STARTREK"
  1045. SHELL "SHOW9.BAT"
  1046. SHELL "CD\MENU"
  1047. GOTO TREKKY
  1048.  
  1049. WARPD:
  1050. SHELL "CD\MOVIES\STARTREK"
  1051. SHELL "SHOW0.BAT"
  1052. SHELL "CD\MENU"
  1053. GOTO TREKKY
  1054.  
  1055. TVGUIDE:
  1056. SHELL "CD\MOVIES\TVGUIDE"
  1057. SHELL "GO.BAT"
  1058. SHELL "CD\MENU"
  1059. GOTO MOVIES
  1060.  
  1061. PLAYS:
  1062. SHELL "PLAYS.COM"
  1063. PLAYMENU:
  1064.   A$=INKEY$
  1065.     IF A$=CHR$(65) OR A$=CHR$(97) THEN SHELL "LIST TITUS.TXT":GOTO PLAYS
  1066.     IF A$=CHR$(66) OR A$=CHR$(98) THEN SHELL "LIST ROMEO.TXT":GOTO PLAYS
  1067.     IF A$=CHR$(67) OR A$=CHR$(99) THEN SHELL "LIST CEASER.TXT":GOTO PLAYS
  1068.     IF A$=CHR$(68) OR A$=CHR$(100) THEN SHELL "LIST HAMLET.TXT":GOTO PLAYS
  1069.     IF A$=CHR$(69) OR A$=CHR$(101) THEN SHELL "LIST OTHELLO.TXT":GOTO PLAYS
  1070.     IF A$=CHR$(70) OR A$=CHR$(102) THEN SHELL "LIST TIMON.TXT":GOTO PLAYS
  1071.     IF A$=CHR$(71) OR A$=CHR$(103) THEN SHELL "LIST KINGLEAR.TXT":GOTO PLAYS
  1072.     IF A$=CHR$(72) OR A$=CHR$(104) THEN SHELL "LIST MACBETH.TXT":GOTO PLAYS
  1073.     IF A$=CHR$(73) OR A$=CHR$(105) THEN SHELL "LIST CLEOPATR.TXT":GOTO PLAYS
  1074.     IF A$=CHR$(74) OR A$=CHR$(106) THEN SHELL "LIST CORIOLAN.TXT":GOTO PLAYS
  1075.     IF A$=CHR$(27) THEN GOTO BOOKSHELF
  1076.  GOTO PLAYMENU
  1077.  
  1078. POEMS:
  1079. SHELL "POEMS.COM"
  1080. POEMMENU:
  1081.      A$=INKEY$
  1082.         IF A$=CHR$(49) THEN GOTO COMPLAINT
  1083.         IF A$=CHR$(50) THEN GOTO DUNSANY
  1084.         IF A$=CHR$(51) THEN GOTO PASSPILG
  1085.         IF A$=CHR$(52) THEN GOTO TURTS
  1086.         IF A$=CHR$(53) THEN GOTO RAVEN
  1087.         IF A$=CHR$(54) THEN GOTO ULYSSES
  1088.         IF A$=CHR$(55) THEN GOTO RHINO
  1089.         IF A$=CHR$(27) THEN GOTO BOOKSHELF
  1090.      GOTO POEMMENU
  1091.  
  1092. COMPLAINT:
  1093. SHELL "CD\POEMS"
  1094. SHELL "SHOWL.BAT"
  1095. SHELL "CD\MENU"
  1096. GOTO POEMS
  1097.  
  1098. DUNSANY:
  1099. SHELL "DUNSANY.COM"
  1100. DUNMENU:
  1101.   A$=INKEY$
  1102.     IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO SS1
  1103.     IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO SS2
  1104.     IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO SS3
  1105.     IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO SS4
  1106.     IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO SS5
  1107.     IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO SS6
  1108.     IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO SS7
  1109.     IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO SS8
  1110.     IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO SS9
  1111.     IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO SS0
  1112.     IF A$=CHR$(27) THEN GOTO POEMS
  1113.  GOTO DUNMENU
  1114.  
  1115. SS1:
  1116. SHELL "CD\STORIES"
  1117. SHELL "SHOW1.BAT"
  1118. SHELL "CD\MENU"
  1119. GOTO DUNSANY
  1120.  
  1121. SS2:
  1122. SHELL "CD\STORIES"
  1123. SHELL "SHOW2.BAT"
  1124. SHELL "CD\MENU"
  1125. GOTO DUNSANY
  1126.  
  1127. SS3:
  1128. SHELL "CD\STORIES"
  1129. SHELL "SHOW3.BAT"
  1130. SHELL "CD\MENU"
  1131. GOTO DUNSANY
  1132.  
  1133. SS4:
  1134. SHELL "CD\STORIES"
  1135. SHELL "SHOW4.BAT"
  1136. SHELL "CD\MENU"
  1137. GOTO DUNSANY
  1138.  
  1139. SS5:
  1140. SHELL "CD\STORIES"
  1141. SHELL "SHOW5.BAT"
  1142. SHELL "CD\MENU"
  1143. GOTO DUNSANY
  1144.  
  1145. SS6:
  1146. SHELL "CD\STORIES"
  1147. SHELL "SHOW6.BAT"
  1148. SHELL "CD\MENU"
  1149. GOTO DUNSANY
  1150.  
  1151. SS7:
  1152. SHELL "CD\STORIES"
  1153. SHELL "SHOW7.BAT"
  1154. SHELL "CD\MENU"
  1155. GOTO DUNSANY
  1156.  
  1157. SS8:
  1158. SHELL "CD\STORIES"
  1159. SHELL "SHOW8.BAT"
  1160. SHELL "CD\MENU"
  1161. GOTO DUNSANY
  1162.  
  1163. SS9:
  1164. SHELL "CD\STORIES"
  1165. SHELL "SHOW9.BAT"
  1166. SHELL "CD\MENU"
  1167. GOTO DUNSANY
  1168.  
  1169. SS0:
  1170. SHELL "CD\STORIES"
  1171. SHELL "SHOW0.BAT"
  1172. SHELL "CD\MENU"
  1173. GOTO DUNSANY
  1174.  
  1175. PASSPILG:
  1176. SHELL "CD\POEMS"
  1177. SHELL "SHOWP.BAT"
  1178. SHELL "CD\MENU"
  1179. GOTO POEMS
  1180.  
  1181. TURTS:
  1182. SHELL "CD\POEMS"
  1183. SHELL "SHOWT.BAT"
  1184. SHELL "CD\MENU"
  1185. GOTO POEMS
  1186.  
  1187. RAVEN:
  1188. SHELL "CD\POEMS\RAVEN"
  1189. SHELL "SHOW.BAT"
  1190. SHELL "CD\MENU"
  1191. GOTO POEMS
  1192.  
  1193. ULYSSES:
  1194. SHELL "CD\POEMS\ULYSSES"
  1195. SHELL "ULYSSES.BAT"
  1196. SHELL "CD\MENU"
  1197. GOTO POEMS
  1198.  
  1199. RHINO:
  1200. SHELL "CD\POEMS\RHINO"
  1201. SHELL "RHINO.EXE"
  1202. SHELL "CD\MENU"
  1203. GOTO POEMS
  1204.  
  1205. REFERENCE:
  1206. SHELL "REFER.COM"
  1207. REFERMENU:
  1208.      A$=INKEY$
  1209.         IF A$=CHR$(49) THEN GOTO FELINE
  1210.         IF A$=CHR$(50) THEN GOTO GARDENS
  1211.         IF A$=CHR$(51) THEN GOTO GEOGRAPH
  1212.         IF A$=CHR$(52) THEN GOTO MEDICS
  1213.         IF A$=CHR$(53) THEN GOTO MISCREFER
  1214.         IF A$=CHR$(54) THEN GOTO QUOTES
  1215.         IF A$=CHR$(55) THEN GOTO THESAUR
  1216.         IF A$=CHR$(27) THEN GOTO BOOKSHELF
  1217.      GOTO REFERMENU
  1218.  
  1219. FELINE:
  1220. SHELL "KITTY.COM"
  1221. KITTYMENU:
  1222.      A$=INKEY$
  1223.         IF A$=CHR$(49) THEN GOTO CATMED
  1224.         IF A$=CHR$(50) THEN GOTO CHOOSY
  1225.         IF A$=CHR$(51) THEN GOTO GENETIC
  1226.         IF A$=CHR$(52) THEN GOTO NUTRIT
  1227.         IF A$=CHR$(53) THEN GOTO CATHIST
  1228.         IF A$=CHR$(54) THEN GOTO PUREBRED
  1229.         IF A$=CHR$(55) THEN GOTO WILDCATS
  1230.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1231.      GOTO KITTYMENU
  1232.  
  1233. CATMED:
  1234. SHELL "CD\REFEREN\CATMED"
  1235. SHELL "CATMED.EXE"
  1236. SHELL "CD\MENU"
  1237. GOTO FELINE
  1238.  
  1239. CHOOSY:
  1240. SHELL "CD\REFEREN\CATS"
  1241. SHELL "SHOW2.BAT"
  1242. SHELL "CD\MENU"
  1243. GOTO FELINE
  1244.  
  1245. GENETIC:
  1246. SHELL "CD\REFEREN\CATS"
  1247. SHELL "SHOW3.BAT"
  1248. SHELL "CD\MENU"
  1249. GOTO FELINE
  1250.  
  1251. NUTRIT:
  1252. SHELL "CD\REFEREN\CATS"
  1253. SHELL "SHOW4.BAT"
  1254. SHELL "CD\MENU"
  1255. GOTO FELINE
  1256.  
  1257. CATHIST:
  1258. SHELL "CD\REFEREN\CATS"
  1259. SHELL "SHOW5.BAT"
  1260. SHELL "CD\MENU"
  1261. GOTO FELINE
  1262.  
  1263. PUREBRED:
  1264. SHELL "CD\REFEREN\CATS"
  1265. SHELL "SHOW6.BAT"
  1266. SHELL "CD\MENU"
  1267. GOTO FELINE
  1268.  
  1269. WILDCATS:
  1270. SHELL "CD\REFEREN\CATS"
  1271. SHELL "SHOW7.BAT"
  1272. SHELL "CD\MENU"
  1273. GOTO FELINE
  1274.  
  1275. GARDENS:
  1276. SHELL "GARDAINS.COM"
  1277. GARDMENU:
  1278.      A$=INKEY$
  1279.         IF A$=CHR$(49) THEN GOTO HERBYS
  1280.         IF A$=CHR$(50) THEN GOTO BONSAI
  1281.         IF A$=CHR$(51) THEN GOTO GGUIDE
  1282.         IF A$=CHR$(52) THEN GOTO GREENHSE
  1283.         IF A$=CHR$(53) THEN GOTO ORGANICG
  1284.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1285.      GOTO GARDMENU
  1286.  
  1287. HERBYS:
  1288. SHELL "CD\REFEREN\HERBS"
  1289. SHELL "BEGIN.EXE"
  1290. SHELL "CD\MENU"
  1291. GOTO GARDENS
  1292.  
  1293. BONSAI:
  1294. SHELL "CD\REFEREN\BONSAI"
  1295. SHELL "SHOW.BAT"
  1296. SHELL "CD\MENU"
  1297. GOTO GARDENS
  1298.  
  1299. GGUIDE:
  1300. SHELL "CD\REFEREN\GARDEN"
  1301. SHELL "GARDEN.EXE"
  1302. SHELL "CD\MENU"
  1303. GOTO GARDENS
  1304.  
  1305. GREENHSE:
  1306. SHELL "CD\REFEREN\GREENHSE"
  1307. SHELL "BEGIN.EXE"
  1308. SHELL "CD\MENU"
  1309. GOTO GARDENS
  1310.  
  1311. ORGANICG:
  1312. SHELL "CD\REFEREN\ORGANIC"
  1313. SHELL "BEGIN.EXE"
  1314. SHELL "CD\MENU"
  1315. GOTO GARDENS
  1316.  
  1317. GEOGRAPH:
  1318. SHELL "GEOGRAPH.COM"
  1319. GEOMENU:
  1320.      A$=INKEY$
  1321.         IF A$=CHR$(49) THEN GOTO CANPOST
  1322.         IF A$=CHR$(50) THEN GOTO CITYLAT
  1323.         IF A$=CHR$(51) THEN GOTO INTTRAV
  1324.         IF A$=CHR$(52) THEN GOTO TRVPTS
  1325.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1326.      GOTO GEOMENU
  1327.  
  1328. CANPOST:
  1329. SHELL "CD\REFEREN\CAN_POST"
  1330. SHELL "SHOW.BAT"
  1331. SHELL "CD\MENU"
  1332. GOTO GEOGRAPH
  1333.  
  1334. CITYLAT:
  1335. SHELL "CD\REFEREN\LAT_LONG"
  1336. SHELL "USCITIES.COM"
  1337. SHELL "CD\MENU"
  1338. GOTO GEOGRAPH
  1339.  
  1340. INTTRAV:
  1341. SHELL "CD\REFEREN\INTERSTA"
  1342. SHELL "IST.EXE"
  1343. SHELL "CD\MENU"
  1344. GOTO GEOGRAPH
  1345.  
  1346. TRVPTS:
  1347. SHELL "CD\REFEREN\POINTS"
  1348. SHELL "TPOI2.EXE"
  1349. SHELL "CD\MENU"
  1350. GOTO GEOGRAPH
  1351.  
  1352. MEDICS:
  1353. SHELL "MEDSTOP.COM"
  1354. MEDMENU:
  1355.      A$=INKEY$
  1356.         IF A$=CHR$(49) THEN GOTO COFFEE
  1357.         IF A$=CHR$(50) THEN GOTO BACKS
  1358.         IF A$=CHR$(51) THEN GOTO DOCDISC
  1359.         IF A$=CHR$(52) THEN GOTO FOODCAL
  1360.         IF A$=CHR$(53) THEN GOTO MEDTEX
  1361.         IF A$=CHR$(54) THEN GOTO FATASS
  1362.         IF A$=CHR$(55) THEN GOTO STRET
  1363.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1364.      GOTO MEDMENU
  1365.  
  1366. COFFEE:
  1367. SHELL "CD\REFEREN\CAFFEINE"
  1368. SHELL "SHOW.BAT"
  1369. SHELL "CD\MENU"
  1370. GOTO MEDICS
  1371.  
  1372. BACKS:
  1373. SHELL "CD\REFEREN\BACKACHE"
  1374. SHELL "BACKACHE.EXE"
  1375. SHELL "CD\MENU"
  1376. GOTO MEDICS
  1377.  
  1378. DOCDISC:
  1379. SHELL "CD\REFEREN\MEDICAL"
  1380. SHELL "DOD.EXE"
  1381. SHELL "CD\MENU"
  1382. GOTO MEDICS
  1383.  
  1384. FOODCAL:
  1385. SHELL "CD\REFEREN\CALORIES"
  1386. SHELL "SHOW.BAT"
  1387. SHELL "CD\MENU"
  1388. GOTO MEDICS
  1389.  
  1390. MEDTEX:
  1391. SHELL "CD\REFEREN\MEDTXT"
  1392. SHELL "GO.BAT"
  1393. SHELL "CD\MENU"
  1394. GOTO MEDICS
  1395.  
  1396. FATASS:
  1397. SHELL "CD\REFEREN\OBESITY"
  1398. SHELL "SHOW.BAT"
  1399. SHELL "CD\MENU"
  1400. GOTO MEDICS
  1401.  
  1402. STRET:
  1403. SHELL "CD\REFEREN\STRETCH"
  1404. SHELL "SHOW.BAT"
  1405. SHELL "CD\MENU"
  1406. GOTO MEDICS
  1407.  
  1408. MISCREFER:
  1409. SHELL "MISCINFO.COM"
  1410. MISCMENU:
  1411.     A$=INKEY$
  1412.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO BIOS
  1413.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO CALEN
  1414.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO EXDRAMA
  1415.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO FREEBE
  1416.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO HINTS
  1417.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO JUGGLE
  1418.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO METRIC
  1419.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO REDS
  1420.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO TUNING
  1421.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO VESTAMER
  1422.        IF A$=CHR$(27) THEN GOTO REFERENCE
  1423.     GOTO MISCMENU
  1424.  
  1425. BIOS:
  1426. SHELL "CD\REFEREN\BIORYM"
  1427. SHELL "BIORYM.EXE"
  1428. SHELL "CD\MENU"
  1429. GOTO MISCREFER
  1430.  
  1431. CALEN:
  1432. SHELL "CD\REFEREN\CALENDAR"
  1433. SHELL "WAZCAL1.EXE"
  1434. SHELL "CD\MENU"
  1435. GOTO MISCREFER
  1436.  
  1437. EXDRAMA:
  1438. SHELL "CD\REFEREN\DRAMA"
  1439. SHELL "GO.BAT"
  1440. SHELL "CD\MENU"
  1441. GOTO MISCREFER
  1442.  
  1443. FREEBE:
  1444. SHELL "CD\REFEREN\FREEBEE"
  1445. SHELL "START.EXE"
  1446. SHELL "CD\MENU"
  1447. GOTO MISCREFER
  1448.  
  1449. HINTS:
  1450. SHELL "CD\REFEREN\HINTS"
  1451. SHELL "HINTS.EXE"
  1452. SHELL "CD\MENU"
  1453. GOTO MISCREFER
  1454.  
  1455. JUGGLE:
  1456. SHELL "CD\REFEREN\JUGGLE"
  1457. SHELL "J.EXE"
  1458. SHELL "CD\MENU"
  1459. GOTO MISCREFER
  1460.  
  1461. METRIC:
  1462. SHELL "CD\REFEREN\METRIC"
  1463. SHELL "MX.EXE"
  1464. SHELL "CD\MENU"
  1465. GOTO MISCREFER
  1466.  
  1467. REDS:
  1468. SHELL "CD\REFEREN\HOMEMAIN"
  1469. SHELL "POTEET.EXE"
  1470. SHELL "CD\MENU"
  1471. GOTO MISCREFER
  1472.  
  1473. TUNING:
  1474. SHELL "CD\REFEREN\PIANOTUN"
  1475. SHELL "TUNING.EXE"
  1476. SHELL "CD\MENU"
  1477. GOTO MISCREFER
  1478.  
  1479. VESTAMER:
  1480. SHELL "CD\REFEREN\ECOLOGY"
  1481. SHELL "ECOOIL.EXE"
  1482. SHELL "CD\MENU"
  1483. GOTO MISCREFER
  1484.  
  1485. QUOTES:
  1486. SHELL "CD\REFEREN\P_WORDS"
  1487. SHELL "PWORDS.EXE"
  1488. SHELL "CD\MENU"
  1489. GOTO REFERENCE
  1490.  
  1491. THESAUR:
  1492. SHELL "CD\REFEREN\THESAURS"
  1493. SHELL "THESAUR.EXE"
  1494. SHELL "CD\MENU"
  1495. GOTO REFERENCE
  1496.  
  1497. END